home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / Font / s / Font13 < prev    next >
Text File  |  1995-08-26  |  636b  |  29 lines
  1. ; Author: Copyright 1993 Shaun Blackmore
  2.  
  3.         GET     ^.h.regdefs
  4.         GET     ^.h.swinos
  5.         GET     ^.h.macros
  6.  
  7. ;os_error *Font_SetPalette(int back_log, int fore_log, int offset, int back_phys, int fore_phys);
  8. ;
  9. ; r0=back_log
  10. ; r1=fore_log
  11. ; r2=offset
  12. ; r3=back_phys
  13. ; [ip,#0]=fore_phys
  14.  
  15.         PREAMBLE
  16.         STARTCODE Font_SetPalette
  17. ;
  18.         MOV     ip,sp
  19.         STMFD   sp!, {r4,r5,lr}
  20.         LDR     r5,[ip,#0]
  21.         MOV     r4,r3
  22.         MOV     r3,r2
  23.         MOV     r2,r1
  24.         MOV     r1,r0
  25.         SWI     SWI_Font_SetPalette + XOS_Bit
  26.         MOVVC   r0,#0
  27.         LDMFD   sp!, {r4,r5,pc}^
  28.         END
  29.